home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
005
/
product.arc
/
MACRO70.LSP
< prev
next >
Wrap
Text File
|
1986-09-23
|
813b
|
22 lines
(Defun C:Import ()
(Prompt "Developed by T. Schaefer and J. Brittain\n")
(Setq FNAME (Getstring "ASCII text file name: "))
(Setq THGT (Getreal "Text height: "))
(Setq LSPACE (Getreal "Line spacing: "))
(Setq JUST (Getstring "Justification, LCR: <L> "))
(Setq PT1 (Getpoint "Insertion point of first text line: "))
(Setq FILE (Open FNAME "r"))
(Setq TLINE (Read-line FILE))
(If (= JUST "")
(Setq JUST nil)
)
(While (Or nil TLINE)
(If (null JUST)
(Command "Text" PT1 THGT 0 TLINE)
(Command "Text" JUST PT1 THGT 0 TLINE)
)
(Setq PT1 (List (Car PT1) (- (Cadr PT1) LSPACE)))
(Setq TLINE (Read-line FILE))
)
)